perm filename LOSS.2[MAC,LSP]1 blob sn#592380 filedate 1981-06-06 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	foo	baz
C00003 00003	(plist 'em:mail-interrupt-handler)
C00004 ENDMK
CāŠ—;
foo	baz
	bar
	bar
foo	baz
	bar
	bar
(plist 'em:mail-interrupt-handler)
(plist 'em:add-queue)
(plist 'em:get-queue)
(plist 'em:wait-mail)
(defun loser () (break mail-interrupt t))
(setq sail-mail-service 'loser)
(do ((i 14000. (1- i)))((zerop i) 'done)))
(+ 1 2)(+ 3 4)